home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / rbbs / pgvw174.zip / RSB4CHAT.MRG < prev    next >
Text File  |  1992-06-22  |  2KB  |  58 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB4.BAS to produce NEW\RSB4CHAT.BAS
  3. * RBBSSUB4.BAS:  Date 6-20-1992  Size 120885 bytes
  4. * ------------[ Created 06-22-1992 11:37:16 ]------------
  5. * REPLACING old line(s) by new
  6. 59860 CALL QuickTPut (ZEmphasizeOff$,0)
  7. * ------[ first line different ]------
  8.       CALL ViewChek                                                  ' DR062201
  9.       IF CantInterrupt THEN _
  10.          ZTurboKey = 2 : _
  11.          ZForceKeyboard = ZTrue : _
  12.          ZOutTxt$ = "Press any key to continue" _
  13.       ELSE GOSUB 59870 : _
  14.            ZOutTxt$ = ZMorePrompt$ + Temp$ + ExtraPrompt$ + LEFT$(">",-ZExpertUser)
  15.       WasX = LEN(ZOutTxt$) + 2
  16.       ZNoAdvance = OverWrite
  17.       ZSubParm = 1
  18.       IF ExtraPrompt$ = "" AND ZTurboKey = 0 THEN _
  19.          ZTurboKey = -ZTurboKeyUser
  20.       ZMacroMin = 2
  21.       CALL TGet
  22.       IF ZSubParm = -1 THEN _
  23.         EXIT SUB
  24.       ZTurboKey = ZFalse
  25.       ZWasDF$ = ZUserIn$ (1)
  26.       CALL AllCaps (ZWasDF$)
  27.       WasI = INSTR(";C;A;",";"+ZWasDF$+";")
  28.       IF WasI = 1 THEN _
  29.          ZNonStop = ZTrue : _
  30.          ZWasQ = 0
  31.       CALL WipeLine (WasX + LEN(ZUserIn$))
  32.       IF NOT ZHiLiteOff THEN _
  33.          CALL QuickTPut (ZLastSmartColor$,0)
  34.       IF CantInterrupt THEN _
  35.          ZNo = ZFalse : _
  36.          EXIT SUB
  37.       IF WasI = 3 THEN _
  38.          ZLastIndex = 0 : _
  39.          AbortIndex = 32000
  40.       IF ZNo THEN _
  41.          ZKeyboardStack$ = "" : _
  42.          ZCommPortStack$ = "" : _
  43.          ZLastSmartColor$ = ""
  44.       IF NOT ZJumpSupported THEN _
  45.          EXIT SUB
  46.       IF ZWasDF$ = "J" THEN _
  47.          IF ZWasQ > 1 THEN _
  48.             ZUserIn$ = ZUserIn$(2) : _
  49.             GOTO 59866 _
  50.          ELSE ZOutTxt$ = "Jump to what text" + ZPressEnterExpert$ : _
  51.               CALL PopCmdStack : _
  52.               IF ZWasQ = 0 THEN _
  53.                  EXIT SUB _
  54.               ELSE GOTO 59866
  55.       IF ZWasDF$ <> "R" THEN _
  56.          EXIT SUB
  57.       ZUserIn$ = ZJumpLast$
  58.